﻿Public Class clsProdInfo

    Public Function getProdInfoByProdId(prod_id As String) As DataTable
        Dim szSql As String = ""
        szSql &= "SELECT * FROM sf.b_prod_info WHERE factory_id=? and prod_id = ? "
        Return DBacs.ExecuteSql(szSql, -1, "TS", prod_id)
    End Function

    Public Function getProdInfoByProdIdAndStatus(prod_id As String, status As String) As DataTable
        Dim szSql As String = ""
        szSql &= "SELECT * FROM sf.b_prod_info WHERE factory_id=? and prod_id = ? and status = ? "
        Return DBacs.ExecuteSql(szSql, -1, "TS", prod_id, status)
    End Function

    Public Function getProdInfoByProdIdAndStatusBack(prod_id As String, status As String) As DataTable
        Dim szSql As String = ""
        szSql &= "SELECT * FROM sf.b_prod_info WHERE factory_id=? and prod_id = ? and status::integer >= ? "
        Return DBacs.ExecuteSql(szSql, -1, "TS", prod_id, status)
    End Function

End Class
